home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / media / resource.Dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1996-12-29  |  2.2 KB  |  28 lines
  1. on exitFrame
  2.   global gObjCaptain, gPanoObject, gDisplayInfo, gDemoBtn
  3.   preLoad(preLoadFrame)
  4.   markerChange(gObjCaptain)
  5.   set the pNavMode of gPanoObject to 0
  6.   set the regPoint of member "demo btn" to point(-1000, -1000)
  7.   set c21mediaBtn to new(script "display info button", 4, "c21media btn", "c21media", "resource.dir")
  8.   set abbettBtn to new(script "display info button", 5, "abbett btn", "abbett", "resource.dir")
  9.   set axisBtn to new(script "display info button", 6, "axis btn", "axis", "resource.dir")
  10.   set contagiousBtn to new(script "display info button", 7, "contagious btn", "contagious", "resource.dir")
  11.   set convrgenceBtn to new(script "display info button", 8, "convrgence btn", "convrgnc", "resource.dir")
  12.   set dazzledBtn to new(script "display info button", 9, "dazzled btn", "dazzled", "resource.dir")
  13.   set einzigBtn to new(script "display info button", 10, "einzig btn", "einzig", "resource.dir")
  14.   set emptyStreetBtn to new(script "display info button", 11, "emptyStreet btn", "emptyst", "resource.dir")
  15.   set eVoxBtn to new(script "display info button", 12, "evox btn", "eVox", "resource.dir")
  16.   set imageBtn to new(script "display info button", 13, "imgwks btn", "imgwks", "resource.dir")
  17.   set greenleighBtn to new(script "display info button", 14, "greenleigh btn", "greenleigh", "resource.dir")
  18.   set kineticBtn to new(script "display info button", 15, "kinetic btn", "kinetic", "resource.dir")
  19.   set metechBtn to new(script "display info button", 16, "metech btn", "metech", "resource.dir")
  20.   set powertalkBtn to new(script "display info button", 17, "powertalk btn", "pwrtlk", "resource.dir")
  21.   set spaceBtn to new(script "display info button", 18, "space btn", "space", "resource.dir")
  22.   set view360 to new(script "display info button", 19, "view360 btn", "view", "resource.dir")
  23.   set virtualBtn to new(script "display info button", 20, "virtualProp btn", "virtualProp", "resource.dir")
  24.   set vrtoolworksBtn to new(script "display info button", 21, "vrtoolworks btn", "vrtlwks", "resource.dir")
  25.   set wagnerBtn to new(script "display info button", 22, "wagner btn", "wagner", "resource.dir")
  26.   set wowBtn to new(script "display info button", 23, "wow btn", "wow", "resource.dir")
  27. end
  28.